%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Angular wave function of hydrogen.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
clear;
figure(1);			clf;
col='rgbmcyk';

tht=[0:.01:1]*2*pi;
for ll=1:4
	for mm=1:ll
		Leg=abs(Legendre(ll-1,cos(tht)));
		subplot(2,2,ll),polar(tht+pi/2,Leg(mm,:)/mm^2,col(mm))
		set(gca,'FontSize',16,'LineWidth',1.4)
		title(['\fontsize{16}{\itl} = ',num2str(ll-1)])
		hold on;
	end
end